home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / chrono / chrono2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-22  |  1.8 KB  |  92 lines
  1. unit Chrono2;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Infos, About, Menus, Toolbar,
  8.   ExtCtrls, MiscComp, Chronog, PanClock;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Button1: TButton;
  13.     Button2: TButton;
  14.     Label1: TLabel;
  15.     Edit1: TEdit;
  16.     Chrono1: TChrono;
  17.     Button3: TButton;
  18.     Button4: TButton;
  19.     Button5: TButton;
  20.     Edit2: TEdit;
  21.     Edit3: TEdit;
  22.     Label2: TLabel;
  23.     Label3: TLabel;
  24.     Label4: TLabel;
  25.     Label6: TLabel;
  26.     Label7: TLabel;
  27.     Edit4: TEdit;
  28.     Button6: TButton;
  29.     PanelClock1: TPanelClock;
  30.     procedure Button1Click(Sender: TObject);
  31.     procedure Button2Click(Sender: TObject);
  32.     procedure Button3Click(Sender: TObject);
  33.     procedure Button4Click(Sender: TObject);
  34.     procedure Button5Click(Sender: TObject);
  35.     procedure Button6Click(Sender: TObject);
  36.   private
  37.     { Private-dΘclarations }
  38.   public
  39.     { Public-dΘclarations }
  40.   end;
  41.  
  42. var
  43.   Form1: TForm1;
  44.  
  45. implementation
  46.  
  47. {$R *.DFM}
  48.  
  49. procedure TForm1.Button1Click(Sender: TObject);
  50. begin
  51.  Edit1.text:='0';
  52.  chrono1.start;
  53. end;
  54.  
  55. procedure TForm1.Button2Click(Sender: TObject);
  56. begin
  57.   chrono1.stop;
  58.   Edit1.text:= inttostr(chrono1.last);
  59.   Edit2.text:=inttostr(chrono1.total);
  60.   Edit3.text:=inttostr(chrono1.aver);
  61.   Edit4.text:=inttostr(chrono1.nb);
  62.  { stopwatch1.show;}
  63. end;
  64.  
  65. procedure TForm1.Button3Click(Sender: TObject);
  66. begin
  67. chrono1.pause;
  68. edit1.text:=inttostr(chrono1.last);
  69. end;
  70.  
  71. procedure TForm1.Button4Click(Sender: TObject);
  72. begin
  73. chrono1.continue;
  74. end;
  75.  
  76. procedure TForm1.Button5Click(Sender: TObject);
  77. begin
  78. chrono1.raz;
  79. edit1.text:='0';
  80. edit2.text:='0';
  81. edit3.text:='0';
  82. edit4.text:='0';
  83. end;
  84.  
  85. procedure TForm1.Button6Click(Sender: TObject);
  86. begin
  87. chrono1.cancel;
  88. edit1.text:=inttostr(chrono1.last);
  89. end;
  90.  
  91. end.
  92.